home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
baswiz19.zip
/
BW$BAS.ZIP
/
BCDSIN.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-01-29
|
1KB
|
31 lines
' +----------------------------------------------------------------------+
' | |
' | BASWIZ Copyright (c) 1990-1993 Thomas G. Hanlin III |
' | |
' | The BASIC Wizard's Library |
' | |
' +----------------------------------------------------------------------+
DECLARE FUNCTION BCDAdd$ (Nr1 AS STRING, Nr2 AS STRING)
DECLARE FUNCTION BCDDiv$ (Nr1 AS STRING, Nr2 AS STRING)
DECLARE FUNCTION BCDMul$ (Nr1 AS STRING, Nr2 AS STRING)
DECLARE FUNCTION BCDNeg$ (Nr AS STRING)
DECLARE FUNCTION BCDSet$ (NumSt$)
DECLARE FUNCTION BCDSgn% (Nr AS STRING)
DECLARE FUNCTION BCDSub$ (Nr1 AS STRING, Nr2 AS STRING)
FUNCTION BCDSin$ (Nr AS STRING)
St$ = Nr
Result$ = Nr
One$ = BCDSet$("1")
Two$ = BCDSet$("2")
I$ = BCDSet$("3")
X2$ = BCDMul$(Nr, Nr)
WHILE BCDSgn%(St$)
St$ = BCDNeg$(BCDDiv$(BCDMul$(St$, X2$), BCDMul$(I$, BCDSub$(I$, One$))))
Result$ = BCDAdd$(Result$, St$)
I$ = BCDAdd$(I$, Two$)
WEND
BCDSin$ = Result$
END FUNCTION